Leaflet View of Same Map
GreenPalette <- colorNumeric(palette = "Greens",
domain = contiguous_states$wages)
contiguous_states %>%
st_transform(crs = "+init=epsg:4326") %>%
leaflet(width = "100%") %>%
addProviderTiles(provider = "CartoDB.Positron") %>%
addPolygons(fillOpacity = 0.7,
smoothFactor = 0,
stroke = FALSE,
color = ~GreenPalette(wages)) %>%
addLegend("bottomleft",
pal = GreenPalette,
values = ~ wages,
bins = 5,
title = "Median Salary - Substance Abuse Social Workers",
labFormat = labelFormat(prefix = "$"),
opacity = 1)